function [r1] = gemv_calculate(   %
    varargin % 变参数列表
);
r1 = 0;
# --------------------------------------------------------------------------------
# 解析参数的内容（方便后续快速延展参数以及一些默认的参数配置）
numb_var = length(varargin);
note = strcat("gemv_calculate is exec by para numb:",num2str(numb_var));
disp(note);
# --------------------------------------------------------------------------------
# 数据格式检查
if(numb_var == 2)
  [row col] = size(varargin{1})
  [vrow vcol] = size(varargin{2})
  if( col != vcol || vrow != 1 )
    r1 = -1;
  else
    r1 = varargin{1} * transpose(varargin{2}); % 矩阵乘以向量，需要先转置
  end
else

endif



endfunction
